home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / M3.bas < prev    next >
BASIC Source File  |  2012-02-16  |  9KB  |  411 lines

  1. 0  HOME 
  2. 100  HGR : HCOLOR= 3
  3. 110  HPLOT 3,18 TO 6,23 TO 9,29 TO 12,35 TO 14,41 TO 16,47 TO 18,55 TO 20,63 TO 22,71 TO 22,89 TO 20,97 TO 18,105 TO 16,112 TO 14,118 TO 12,124 TO 9,130 TO 6,136 TO 3,141
  4. 112  HPLOT 4,18 TO 7,23 TO 10,29 TO 13,35 TO 15,41 TO 17,47 TO 19,55 TO 21,63 TO 23,71 TO 23,89 TO 21,97 TO 19,105 TO 17,112 TO 15,118 TO 13,124 TO 10,130 TO 7,136 TO 4,141
  5. 114  HPLOT 5,18 TO 8,23 TO 11,29 TO 14,35 TO 16,41 TO 18,47 TO 20,55 TO 22,63 TO 24,71 TO 24,89 TO 22,97 TO 20,105 TO 18,112 TO 16,118 TO 14,124 TO 11,130 TO 8,136 TO 5,141
  6. 150  REM      writ Conx mir
  7. 152 X% = 1:Y% = 15
  8. 154  GOSUB 11150
  9. 156  REM      o
  10. 158 X% = 8
  11. 160  GOSUB 10500
  12. 162  REM      n
  13. 164 X% = 14
  14. 166  GOSUB 10450
  15. 168  REM      v
  16. 170 X% = 20
  17. 172  GOSUB 10750
  18. 174  REM      e
  19. 176 X% = 27
  20. 178  GOSUB 10150
  21. 180  REM      x
  22. 182 X% = 33
  23. 184  GOSUB 10800
  24. 190  REM      M
  25. 192 X% = 42
  26. 194  GOSUB 11050
  27. 196  REM      i
  28. 198 X% = 49
  29. 200  GOSUB 10350
  30. 202  REM      r
  31. 204 X% = 52
  32. 206  GOSUB 10600
  33. 208  REM      r
  34. 210 X% = 58
  35. 212  GOSUB 10600
  36. 214  REM      o
  37. 216 X% = 64
  38. 218  GOSUB 10500
  39. 220  REM      r
  40. 222 X% = 70
  41. 224  GOSUB 10600
  42. 240  REM  draw perp
  43. 242  HPLOT 22,64 TO 130,37
  44. 244  REM      L
  45. 246 X% = 135:Y% = 40
  46. 248  GOSUB 11000
  47. 250  REM      i
  48. 252 X% = 142
  49. 254  GOSUB 10350
  50. 256  REM      n  
  51. 258 X% = 145
  52. 260  GOSUB 10450
  53. 262  REM      e
  54. 264 X% = 151
  55. 266  GOSUB 10150
  56. 270  REM      p
  57. 272 X% = 160
  58. 274  GOSUB 10550
  59. 276  REM      e
  60. 278 X% = 166
  61. 280  GOSUB 10150
  62. 282  REM      r
  63. 284 X% = 172
  64. 286  GOSUB 10600
  65. 288  REM      p
  66. 290 X% = 178
  67. 292  GOSUB 10550
  68. 294  REM      e
  69. 296 X% = 184
  70. 298  GOSUB 10150
  71. 300  REM      n
  72. 302 X% = 190
  73. 304  GOSUB 10450
  74. 306  REM      d
  75. 308 X% = 196
  76. 310  GOSUB 10100
  77. 312  REM      i
  78. 314 X% = 202
  79. 316  GOSUB 10350
  80. 318  REM      c
  81. 320 X% = 205
  82. 322  GOSUB 10050
  83. 324  REM      u
  84. 326 X% = 211
  85. 328  GOSUB 10700
  86. 330  REM      l
  87. 332 X% = 217
  88. 334  GOSUB 10400
  89. 336  REM      a
  90. 338 X% = 220
  91. 340  GOSUB 10000
  92. 342  REM     r
  93. 344 X% = 226
  94. 346  GOSUB 10600
  95. 350  REM      draw inc 
  96. 352  HPLOT 125,64 TO 22,64
  97. 354  HPLOT 130,59 TO 125,64
  98. 356  HPLOT 130,69 TO 125,64
  99. 360  REM       writ inc
  100. 362 X% = 134:Y% = 67
  101. 364  GOSUB 10950
  102. 366  REM      n
  103. 368 X% = 141
  104. 370  GOSUB 10450
  105. 372  REM  c
  106. 374 X% = 147
  107. 376  GOSUB 10050
  108. 378  REM      i
  109. 380 X% = 153
  110. 382  GOSUB 10350
  111. 384  REM      d
  112. 386 X% = 156
  113. 388  GOSUB 10100
  114. 390  REM      e
  115. 392 X% = 162
  116. 394  GOSUB 10150
  117. 396  REM      n
  118. 398 X% = 168
  119. 400  GOSUB 10450
  120. 402  REM      t
  121. 404 X% = 174
  122. 406  GOSUB 10650
  123. 420  REM      R
  124. 422 X% = 183
  125. 424  GOSUB 11100
  126. 426  REM      a
  127. 428 X% = 190
  128. 430  GOSUB 10000
  129. 432  REM      y
  130. 434 X% = 196
  131. 436  GOSUB 10850
  132. 450  REM      draw refl
  133. 452  HPLOT 22,64 TO 110,20
  134. 454  HPLOT 109,20 TO 113,20
  135. 456  HPLOT 110,21 TO 113,21
  136. 458  HPLOT 111,22 TO 113,22
  137. 460  HPLOT 108,19 TO 113,19
  138. 462  HPLOT 112,23 TO 113,23
  139. 464  HPLOT 107,18 TO 113,18
  140. 466  HPLOT 113,24
  141. 470  REM      R
  142. 472 X% = 135:Y% = 15
  143. 474  GOSUB 11100
  144. 476  REM      e
  145. 478 X% = 142
  146. 480  GOSUB 10150
  147. 482  REM      f
  148. 484 X% = 148
  149. 486  GOSUB 10200
  150. 488  REM      l
  151. 490 X% = 154
  152. 492  GOSUB 10400
  153. 494  REM      e
  154. 496 X% = 157
  155. 498  GOSUB 10150
  156. 500  REM      c
  157. 502 X% = 163
  158. 504  GOSUB 10050
  159. 506  REM      t
  160. 508 X% = 169
  161. 510  GOSUB 10650
  162. 512  REM      e
  163. 514 X% = 174
  164. 516  GOSUB 10150
  165. 518  REM      d
  166. 520 X% = 180
  167. 522  GOSUB 10100
  168. 530  REM      R
  169. 532 X% = 189
  170. 534  GOSUB 11100
  171. 536  REM      a
  172. 538 X% = 196
  173. 540  GOSUB 10000
  174. 542  REM      y
  175. 544 X% = 202
  176. 546  GOSUB 10850
  177. 550  REM      draw ang
  178. 552  HPLOT 43,55 TO 46,63
  179. 560  REM      write ang's
  180. 562 X% = 120:Y% = 52
  181. 564  GOSUB 10900
  182. 566 X% = 127
  183. 568  GOSUB 10450
  184. 570  REM      g
  185. 572 X% = 133
  186. 574  GOSUB 10250
  187. 576 X% = 140
  188. 578  GOSUB 10400
  189. 580  REM      e
  190. 582 X% = 143
  191. 584  GOSUB 10150
  192. 600 X% = 152
  193. 602  GOSUB 10500
  194. 604  REM      f
  195. 606 X% = 158
  196. 608  GOSUB 10200
  197. 620  REM      I
  198. 622 X% = 166
  199. 624  GOSUB 10950
  200. 626  REM      n
  201. 628 X% = 172
  202. 630  GOSUB 10450
  203. 632  REM      c
  204. 634 X% = 178
  205. 636  GOSUB 10050
  206. 638  REM      i
  207. 640 X% = 184
  208. 642  GOSUB 10350
  209. 644  REM      d
  210. 646 X% = 187
  211. 648  GOSUB 10100
  212. 650  REM      e
  213. 652 X% = 193
  214. 654  GOSUB 10150
  215. 656  REM      n
  216. 658 X% = 199
  217. 660  GOSUB 10450
  218. 662  REM      c
  219. 664 X% = 205
  220. 666  GOSUB 10050
  221. 668  REM      e
  222. 670 X% = 211
  223. 672  GOSUB 10150
  224. 700  REM      write ang of ref
  225. 702 X% = 120:Y% = 26
  226. 704  GOSUB 10900
  227. 706  REM      n
  228. 708 X% = 127
  229. 710  GOSUB 10450
  230. 712  REM      g
  231. 714 X% = 133
  232. 716  GOSUB 10250
  233. 718  REM      l
  234. 720 X% = 139
  235. 722  GOSUB 10400
  236. 724  REM      e
  237. 726 X% = 142
  238. 728  GOSUB 10150
  239. 730  REM      o
  240. 732 X% = 151
  241. 734  GOSUB 10500
  242. 736  REM      f
  243. 738 X% = 157
  244. 739  GOSUB 10200
  245. 740  REM      R
  246. 742 X% = 166
  247. 744  GOSUB 11100
  248. 746  REM      e
  249. 748 X% = 173
  250. 750  GOSUB 10150
  251. 752  REM      f
  252. 754 X% = 179
  253. 756  GOSUB 10200
  254. 758  REM      l
  255. 760 X% = 185
  256. 762  GOSUB 10400
  257. 764  REM      e
  258. 766 X% = 188
  259. 768  GOSUB 10150
  260. 770  REM      c
  261. 772 X% = 194
  262. 774  GOSUB 10050
  263. 776  REM      t
  264. 778 X% = 200
  265. 780  GOSUB 10650
  266. 782  REM      i
  267. 784 X% = 205
  268. 786  GOSUB 10350
  269. 788  REM      o
  270. 790 X% = 208
  271. 792  GOSUB 10500
  272. 794  REM      n
  273. 796 X% = 214
  274. 798  GOSUB 10450
  275. 900  VTAB (21): PRINT "Press any key for an explanation."
  276. 902  GET KY$: CALL 62450
  277. 904  PRINT  CHR$(4);"run cx"
  278. 5000  END 
  279. 9999  REM     a
  280. 10000  HPLOT X%,Y% -1
  281. 10010  HPLOT X% +1,Y% TO X% +2,Y%
  282. 10020  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
  283. 10030  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  284. 10040  HPLOT X% +3,Y% TO X% +3,Y% -3
  285. 10041  RETURN 
  286. 10049  REM     c
  287. 10050  HPLOT X%,Y% -1 TO X%,Y% -3
  288. 10060  HPLOT X% +1,Y% TO X% +3,Y%
  289. 10070  HPLOT X% +1,Y% -4 TO X% +3,Y% -4
  290. 10071  RETURN 
  291. 10099  REM     d
  292. 10100  HPLOT X%,Y% -1 TO X%,Y% -3
  293. 10110  HPLOT X% +1,Y% TO X% +2,Y%
  294. 10120  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  295. 10130  HPLOT X% +3,Y% TO X% +3,Y% -6
  296. 10131  RETURN 
  297. 10149  REM     e
  298. 10150  HPLOT X%,Y% -1 TO X%,Y% -3
  299. 10160  HPLOT X% +1,Y% TO X% +3,Y%
  300. 10170  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
  301. 10180  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  302. 10190  HPLOT X% +3,Y% -3
  303. 10191  RETURN 
  304. 10199  REM     f
  305. 10200  HPLOT X%,Y% -3 TO X% +2,Y% -3
  306. 10210  HPLOT X% +1,Y% TO X% +1,Y% -5
  307. 10220  HPLOT X% +2,Y% -6 TO X% +3,Y% -6
  308. 10221  RETURN 
  309. 10249  REM     g
  310. 10250  HPLOT X%,Y% -1 TO X%,Y% -3
  311. 10260  HPLOT X% +1,Y% TO X% +2,Y%
  312. 10270  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  313. 10280  HPLOT X% +3,Y% +2 TO X% +3,Y% -3
  314. 10290  HPLOT X% +1,Y% +3 TO X% +2,Y% +3
  315. 10291  RETURN 
  316. 10299  REM     h
  317. 10349  REM     i
  318. 10350  HPLOT X%,Y% TO X%,Y% -3
  319. 10360  HPLOT X%,Y% -5
  320. 10361  RETURN 
  321. 10399  REM     l
  322. 10400  HPLOT X%,Y% TO X%,Y% -6
  323. 10401  RETURN 
  324. 10449  REM     n
  325. 10450  HPLOT X%,Y% TO X%,Y% -4
  326. 10460  HPLOT X% +1,Y% -3
  327. 10470  HPLOT X% +2,Y% -4
  328. 10480  HPLOT X% +3,Y% TO X% +3,Y% -3
  329. 10481  RETURN 
  330. 10499  REM     o
  331. 10500  HPLOT X%,Y% -1 TO X%,Y% -3
  332. 10510  HPLOT X% +1,Y% TO X% +2,Y%
  333. 10520  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  334. 10530  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  335. 10531  RETURN 
  336. 10549  REM     p
  337. 10550  HPLOT X%,Y% +3 TO X%,Y% -4
  338. 10560  HPLOT X% +1,Y% TO X% +2,Y%
  339. 10570  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  340. 10580  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  341. 10581  RETURN 
  342. 10599  REM      r
  343. 10600  HPLOT X%,Y% TO X%,Y% -4
  344. 10610  HPLOT X% +1,Y% -3
  345. 10620  HPLOT X% +2,Y% -4 TO X% +3,Y% -4
  346. 10621  RETURN 
  347. 10649  REM      t
  348. 10650  HPLOT X%,Y% -4
  349. 10660  HPLOT X% +1,Y% TO X% +1,Y% -6
  350. 10670  HPLOT X% +2,Y% -4
  351. 10671  RETURN 
  352. 10699  REM      u
  353. 10700  HPLOT X%,Y% -1 TO X%,Y% -4
  354. 10710  HPLOT X% +1,Y%
  355. 10720  HPLOT X% +2,Y% -1
  356. 10730  HPLOT X% +3,Y% TO X% +3,Y% -4
  357. 10731  RETURN 
  358. 10749  REM      v
  359. 10750  HPLOT X%,Y% -2 TO X%,Y% -4
  360. 10760  HPLOT X% +1,Y% -1
  361. 10770  HPLOT X% +2,Y%
  362. 10780  HPLOT X% +3,Y% -1
  363. 10790  HPLOT X% +4,Y% -2 TO X% +4,Y% -4
  364. 10791  RETURN 
  365. 10799  REM      x
  366. 10800  HPLOT X%,Y% TO X% +4,Y% -4
  367. 10810  HPLOT X% +4,Y% TO X%,Y% -4
  368. 10811  RETURN 
  369. 10849  REM      y
  370. 10850  HPLOT X%,Y% -1 TO X%,Y% -4
  371. 10860  HPLOT X% +1,Y% TO X% +2,Y%
  372. 10870  HPLOT X% +3,Y% +2 TO X% +3,Y% -4
  373. 10880  HPLOT X% +2,Y% +3
  374. 10881  RETURN 
  375. 10899  REM       A
  376. 10900  HPLOT X%,Y% TO X%,Y% -4
  377. 10910  HPLOT X% +1,Y% -5 TO X% +2,Y% -6
  378. 10920  HPLOT X% +3,Y% -5
  379. 10930  HPLOT X% +1,Y% -2 TO X% +3,Y% -2
  380. 10940  HPLOT X% +4,Y% TO X% +4,Y% -4
  381. 10941  RETURN 
  382. 10949  REM      I
  383. 10950  HPLOT X% +1,Y% TO X% +3,Y%
  384. 10960  HPLOT X% +2,Y% -1 TO X% +2,Y% -5
  385. 10970  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  386. 10971  RETURN 
  387. 10999  REM       L
  388. 11000  HPLOT X%,Y% TO X%,Y% -6
  389. 11010  HPLOT X% +1,Y% TO X% +4,Y%
  390. 11011  RETURN 
  391. 11049  REM       M
  392. 11050  HPLOT X%,Y% TO X%,Y% -6
  393. 11060  HPLOT X% +1,Y% -5
  394. 11070  HPLOT X% +2,Y% -3 TO X% +2,Y% -5
  395. 11080  HPLOT X% +3,Y% -5
  396. 11090  HPLOT X% +4,Y% TO X% +4,Y% -6
  397. 11091  RETURN 
  398. 11099  REM       R
  399. 11100  HPLOT X%,Y% TO X%,Y% -6
  400. 11110  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
  401. 11120  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  402. 11130  HPLOT X% +4,Y% -4 TO X% +4,Y% -5
  403. 11140  HPLOT X% +4,Y% TO X% +2,Y% -2
  404. 11141  RETURN 
  405. 11149  REM       C
  406. 11150  HPLOT X%,Y% -1 TO X%,Y% -5
  407. 11160  HPLOT X% +1,Y% TO X% +3,Y%
  408. 11170  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  409. 11180  HPLOT X% +4,Y% -5
  410. 11190  HPLOT X% +4,Y% -1
  411. 11191  RETURN